;; 语句接受一组测试/表达式对。 它一次评估每个测试。 
;; 如果测试返回逻辑true，“cond”将计算并返回相应表达式的值，并且不会评估任何其他测试或表达式。 'cond'返回nil。
;; P.S. 就近原则，按顺序碰到第一个为ture时就直接输出

;; 默认语句，如果没有任何先前值计算为true，则执行该语句。 这是由else语句定义的

(ns cond
  (:gen-class))

(defn Example []
  (def x 10)
  (cond
    (> x 5) (println "x is 5.")
    (> x 10) (println "x is 10.")
    (> x 8) (println "x is 8.")
    :else (println "x is not defined.")))

(Example)
